home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
prog_bas
/
menuwat.zip
/
MWDEMO3.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-08-27
|
11KB
|
285 lines
frmMWDemo3
Menu Watch Demo 3
wwwwwwwwwwwwp
wwwwwwwwwwwwp
Form1
MenuWatch
SKL_MenuWatch
picStatusBarContainer
pnHelp
SSPanel
MS Sans Serif
pnStatus
SSPanel
MS Sans Serif
FileMenu
&File
FileNewOpt
FileOpenOpt
&Open...
FileSaveOpt
&Save
FileSaveAsOpt
Save &As...
FileSep1
FilePrefSubMenu
&Preferences
FilePrefViewOpt
&View...
FilePrefDialogsOpt
&Dialogs...
FileSep2
FileExitOpt
E&xit
EditMenu
&Edit
EditUndoOpt
&Undo
EditSep1
EditCutOpt
EditCopyOpt
&Copy
EditPasteOpt
&Paste
MenuHelp
minMnuHlpIdx
maxMnuHlpIdx
Form_Load
HelpFile8
MenuWatch_Closeg
pnHelp
VisibleD
MenuWatch_Open
MenuWatch_Selectz
ItemID
FileOpenOpt_Clickg
NewMDIChild
frmMDIChildF
EditCopyOpt_ClickZ
EditCutOpt_Clickl
EditMenu_Click
EditPasteOpt_Click
EditSep1_Click#
EditUndoOpt_Click
FileMenu_Click
FileOptPrtDeviceOpt_Click
FileOptPrtPrevOpt_Click
FileOptPrtSubMenu_Click&
FileOptSubMenu_Click
FileSep2_Click}
MDIForm_Load:
picStatusBarContainer_Click
pnHelp_DragDrop
Source
Control
pnStatus_DragDrop
MDIForm_LinkOpen
Cancel
MDIForm_LinkExecute
CmdStr"
MDIForm_LinkError
LinkErrS
MDIForm_LinkClose
MDIForm_DragOver
State
MDIForm_DragDropi
MDIForm_Deactivate
MDIForm_Activate
MDIForm_QueryUnloadu
UnloadModeM
MDIForm_Resize
MDIForm_UnloadX
CountMDI
MenuWatch
maxFileMnuOptIdx
LastCountMDI
MenuR
helpC
status
TheMax
TheMin
DocNm
Caption
frmDemoApp1
ActiveForm
Screen1
WindowState
MenuHelp2
minMnuHlpIdx2Z
maxMnuHlpIdx2
MDIChildMaximized
Changed
MenuState
MAXIMIZED#
CountMDIOnLastMnuRefresh#
NumPulldowns1
NumOptions
NumFileOptions
maxWinListMnuOptIdx
maxWinListMnuOptIdx2P
WinListMnu
WinListMnu2
WinListPulldown
WinListPulldown2
frmMWMDIChild=
NumExtraOpts
fSeparator
MenuHelpText
MenuHelp1{
fMenuHelpInited
InitMenuHelp
ExitFunction
minMnuHlpIdx1c
maxMnuHlpIdx1
maxWinListMnuOptIdx1
WinListPulldown1
minMnuHelpIdx1
minMnuHelpIdx2
maxWinLstOptIdx1
WinLstPulldown1
maxWinLstOptIdx2
WinLstPulldown2
maxWinLstIdx1
maxWinLstIdx2
WindowList
propertyc
nWinLstMnuOpts1s
nWinLstMnuOpts2
nWinLstOpts1
nWinLstOpts2
MenuHelpIdx
maxWinLstIdx
nWinLstOpts
WinLstPulldown
gCountMDI
added
store
count
options
FileNewOpt_ClickS
FilePrefDialogsOpt_Clickl
FilePrefSubMenu_Click
FilePrefViewOpt_Click
FileSaveAsOpt_Click
FileSaveOpt_Click
FileSep1_Click
FileExitOpt_Click
FileExitOpt_Click
DESCRIPTION
Bring the App to an End
FileNewOpt_Click
DESCRIPTION
Create a new instance of the MDI Child form and increment the count
of open MDI Child Windows
Give the document a name---this name is simply placed in the title bar
Document Name
Document:
MDIForm_Load
DESCRIPTION
On Form Load, setup help file (this allows user to verify that help
still works while menu item is selected)
winhelp.hlp
MenuHelpText
DESCRIPTION
Given the logical ID of the menu item selected and the current
"MenuState", return an appropriate menu help text snippet to be
displayed in the status areap
If the menu item was not recognized by the "MenuWatch" control,
then it must be one of the items added to the menu whoseo
WindowList property = True
[Separator]
Switch to the window containing the selected document
If the "MenuHelp" String arrays have not been initialized, then
initialize them now
Determine what menu text snippet to use...)
If the currently-selected menu item is in a menu that appears
*after* the "WindowList" menu options created at design time (in
this case, the "WindowList" menu is the File Menu), and new options
have been added to the File Menu, then store the count of new e
options in "NumExtraOpts"
If the currently selected item is one of the newly addedf
options, then determine if it is a separator or the name of
a document and exit this function immediately
[Separator]
Switch to the window containing the selected document
Based on the value assigned to "MenuHelpIdx" above, return thee
appropriate menu help snippet
Switch to another application
[Separator]
Close
[Separator]
Maximize
Minimize
Restore
Move, size, or close window
File Menu
File|New
File|Open...
File|Save
File|Save As...
[Separator]
File|Preferences >
File|Preferences|View...
File|Preferences|Dialogs...
[Separator]
File|Exit
Edit Menu
Edit|Undo
[Separator]
Edit|Cut
Edit|Copy
Edit|Paste
Switch to another application
[Separator]
Close
[Separator]
Maximize
Minimize
Restore
Move, size, or close window
Switch to the next document
[Separator]
Close
[Separator]
Maximize
Minimize
Restore
Move, size, or close document
File Menu
File|New
File|Open...
File|Save
File|Save As...
[Separator]
File|Preferences >
File|Preferences|View...
File|Preferences|Dialogs...
[Separator]
File|Exit
Edit Menu
Edit|Undo
[Separator]
Edit|Cut
Edit|Copy
Edit|Paste
Restore document size
MenuWatch_Close
DESCRIPTION
When the "Menu Watch" control informs us that the user has completed=
any interaction with the menu, revert back to normal status bar
MenuWatch_Open
DESCRIPTION
When the "Menu Watch" control informs us that the user has begun=
to interact with the menu, refresh the "Menu Watch" control in case
the menu has been modified (due to addition of a document to thea
menu with the "WindowList" property set to True or because an MDI
window has been maximized or restored) and show the menu help status bar
MenuWatch_Select
DESCRIPTION
When the "Menu Watch" control tells us that a menu option has been=
selected (highlighted), set the caption of the menu help status
bar to the appropriate text
Use the "MenuHelpText" function to get the appropriatea
menu help snippet (tell "MenuHelpText" that the "MenuState" isl
2 if we have a maximized MDI window, and 1 if we do not)t